--- gforth/contrib/divspeed.fs	2006/10/29 16:43:52	1.2
+++ gforth/contrib/divspeed.fs	2006/12/31 10:24:51	1.3
@@ -22,7 +22,7 @@
    M*/
 )
 
-: ms@ ( -- u | return time in ms)  utime 1 1000 m*/ d>s ;
+: ms@ ( -- u | return time in ms)  cputime d+ 1 1000 m*/ d>s ;
 : ?allot ( u -- a ) here swap allot ;
 : table ( v1 v2 ... vn n <name> -- | create a table of singles ) 
         create dup cells ?allot over 1- cells + swap