--- a/ReadEvalPrintLoop.st	Tue Dec 06 13:43:43 2011 +0100
+++ b/ReadEvalPrintLoop.st	Tue Dec 06 13:45:05 2011 +0100
@@ -373,8 +373,12 @@
                         output cr.
                         timingFlag == true ifTrue:[
                             'execution time: ' printOn:output.
-                            t printOn:output.
-                            'ms' printOn:output.
+                            t = 0 ifTrue:[
+                                'too small to measure (<1ms)' printOn:output.
+                            ] ifFalse:[
+                                t printOn:output.
+                                'ms' printOn:output.
+                            ].
                             output cr.
                         ].
                     ].
@@ -388,15 +392,15 @@
     "
 
     "Created: / 07-12-2006 / 17:27:21 / cg"
-    "Modified: / 06-12-2011 / 13:43:33 / cg"
+    "Modified: / 06-12-2011 / 13:44:57 / cg"
 ! !
 
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.33 2011-12-06 12:43:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.34 2011-12-06 12:45:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.33 2011-12-06 12:43:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.34 2011-12-06 12:45:05 cg Exp $'
 ! !