fixed a mising return problem

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8016 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxArrayBase.Mod

@@ -10101,6 +10101,8 @@ TYPE
 			PutAdr( new, GetAdr(src) );
 			PutPtr( new, GetPtr(src) );  PutDim( new, newDim );
 			PutSize( new, Size );
+			
+			RETURN new;
 		END NewDescriptorForSameData;
 
 		PROCEDURE NewData(VAR dest: UnsafeArrayT);