--- gforth/matrix.fs	1995/11/13 18:38:35	1.1
+++ gforth/matrix.fs	1999/03/28 16:10:03	1.2
@@ -34,7 +34,7 @@ align create imr mat-byte-size allot
 : innerproduct ( a[row][*] b[*][column] -- int)
   0 row-size 0 do
     >r over @ over @ * r> + >r
-    cell+ swap row-byte-size + swap
+    swap cell+ swap row-byte-size +
     r>
   loop
   >r 2drop r>