# HG changeset patch
# User jwe
# Date 772987242 0
# Node ID 376ac108f611c5f180997f151516cac8773905d1
# Parent  738791c163b25d9fad99145373ca5feefa707535
[project @ 1994-06-30 14:40:42 by jwe]

diff --git a/src/tc-extras.cc b/src/tc-extras.cc
--- a/src/tc-extras.cc
+++ b/src/tc-extras.cc
@@ -163,8 +163,18 @@
     }
   else
     {
-      nr = a.rows ();
-      nc = a.columns ();
+      nr = tmpa.rows ();
+      nc = tmpa.columns ();
+
+      if ((nr == 1 && nc == 2) || (nr == 2 && nc == 1))
+	{
+	  ColumnVector v = tmpa.to_vector ();
+
+	  nr = NINT (v.elem (0));
+	  nc = NINT (v.elem (1));
+	}
+      else
+	warning ("%s (A): use %s (size (A)) instead", warn_for, warn_for);
     }
 
   check_dimensions (nr, nc, warn_for); // May set error_state.