--- a/liboctave/Array.cc
+++ b/liboctave/Array.cc
@@ -88,6 +88,20 @@
 }
 
 template <class T>
+void
+Array<T>::clear (const dim_vector& dv)
+{
+  if (--rep->count <= 0)
+    delete rep;
+
+  rep = new ArrayRep (dv.numel ());
+  slice_data = rep->data;
+  slice_len = rep->len;
+
+  dimensions = dv;
+}
+
+template <class T>
 Array<T>
 Array<T>::squeeze (void) const
 {