--- a/WarningCompilationErrorHandler.st	Fri Jul 30 20:01:33 1999 +0200
+++ b/WarningCompilationErrorHandler.st	Fri Jul 30 22:57:10 1999 +0200
@@ -17,16 +17,16 @@
     box := TextBox new.
     box initialText:currentSource.
     box label:aMessage.
-    box textView selectFromCharacterPosition:position to:endPos.
+    box textView selectFromCharacterPosition:(position?1) to:(endPos?currentSource size).
     box open.
     ^ false
 
     "Created: / 30.7.1999 / 18:10:22 / cg"
-    "Modified: / 30.7.1999 / 18:19:02 / cg"
+    "Modified: / 30.7.1999 / 22:37:30 / cg"
 ! !
 
 !WarningCompilationErrorHandler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/WarningCompilationErrorHandler.st,v 1.1 1999-07-30 18:01:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/WarningCompilationErrorHandler.st,v 1.2 1999-07-30 20:57:10 cg Exp $'
 ! !