--- a/DebugView.st	Wed Mar 11 12:57:36 2009 +0100
+++ b/DebugView.st	Fri Mar 13 12:05:42 2009 +0100
@@ -4199,7 +4199,7 @@
         answer := Dialog request:'How long should this halt/breakpoint be ignored (s/m/h) ?'.
         answer isEmptyOrNil ifTrue:[^ self].
 
-        dT := TimeDuration readFrom:answer onError:nil.
+        dT := TimeDuration readFrom:answer onError:[ nil ].
         dT notNil ifTrue:[
             self addIgnoredHaltForCount:nil orTimeDuration:dT.
             ^ self.
@@ -6541,7 +6541,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.461 2009-02-11 16:37:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.462 2009-03-13 11:05:42 sr Exp $'
 ! !
 
 DebugView initialize!