--- a/XBMReader.st	Tue Sep 18 10:41:11 2001 +0200
+++ b/XBMReader.st	Fri Sep 21 10:02:41 2001 +0200
@@ -100,7 +100,13 @@
     Stream readErrorSignal handle:[:ex |
         line := nil.
     ] do:[
-        line := inStream nextLine.
+        Stream lineTooLongErrorSignal handle:[:ex |
+            line := nil.
+            Transcript showCR:'long line'.
+            ex return.
+        ] do:[
+            line := inStream nextLine.
+        ].
         [line notNil and:[line isEmpty]] whileTrue:[
             line := inStream nextLine.
         ].
@@ -113,7 +119,13 @@
         Stream readErrorSignal handle:[:ex |
             line := nil.
         ] do:[
-            line := inStream nextLine.
+            Stream lineTooLongErrorSignal handle:[:ex |
+                line := nil.
+                Transcript showCR:'long line'.
+                ex return.
+            ] do:[
+                line := inStream nextLine.
+            ].
             [line notNil and:[line isEmpty]] whileTrue:[
                 line := inStream nextLine.
             ].
@@ -351,6 +363,6 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.43 2001-09-13 09:01:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.44 2001-09-21 08:02:25 cg Exp $'
 ! !
 XBMReader initialize!