*** src/data.cc.orig	2004-04-30 12:04:36.000000000 +0200
--- src/data.cc	2004-06-29 13:44:20.000000000 +0200
***************
*** 1236,1243 ****
  	{
  	  dim_vector dv = args(0).dims ();
  
! 	  if (nd > 0 && nd <= dv.length ())
! 	    retval(0) = dv(nd-1);
  	  else
  	    error ("size: requested dimension (= %d) out of range", nd);
  	}
--- 1236,1248 ----
  	{
  	  dim_vector dv = args(0).dims ();
  
! 	  if (nd > 0)
! 	    {
! 	      if (nd <= dv.length ())
! 		retval(0) = dv(nd-1);
! 	      else 
! 		retval(0) = 1;
! 	    }
  	  else
  	    error ("size: requested dimension (= %d) out of range", nd);
  	}