--- a/liboctave/Array-util.cc	Tue Mar 25 21:36:58 2008 -0400
+++ b/liboctave/Array-util.cc	Tue Mar 25 23:06:45 2008 -0400
@@ -135,6 +135,26 @@
 }
 
 bool
+is_vector (const dim_vector& dim)
+{
+  int m = 0;
+  int n = dim.length ();
+  bool retval = true;
+
+  if (n == 0)
+    m = 2;
+  else
+    {
+      for (int i = 0; i < n; i ++)
+	if (dim (i) > 1)
+	  m++;
+	else if (dim(i) < 1)
+	  m += 2;
+    }
+  return (m < 2);
+}
+
+bool
 any_ones (const Array<octave_idx_type>& arr)
 {
   bool retval = false;