--- a/src/data.cc	Fri Nov 18 00:18:38 1994 +0000
+++ b/src/data.cc	Fri Nov 18 23:26:29 1994 +0000
@@ -698,6 +698,28 @@
   return retval;
 }
 
+DEFUN ("is_struct", Fis_struct, Sis_struct, 1, 1,
+  "is_struct (x): return nonzero if x is a structure")
+{
+  Octave_object retval;
+
+  int nargin = args.length ();
+
+  if (nargin == 1)
+    {
+      tree_constant arg = args(0);
+
+      if (arg.is_map ())
+	retval = 1.0;
+      else
+	retval = 0.0;
+    }
+  else
+    print_usage ("is_struct");
+
+  return retval;
+}
+
 static void
 check_dimensions (int& nr, int& nc, const char *warnfor)
 {