--- a/XPMReader.st	Tue Sep 18 10:41:11 2001 +0200
+++ b/XPMReader.st	Fri Sep 21 10:02:41 2001 +0200
@@ -109,7 +109,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.
+        ]
     ].
     inStream close.
     line isNil ifTrue:[^ false].
@@ -548,6 +554,6 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.44 2001-08-22 16:38:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.45 2001-09-21 08:02:41 cg Exp $'
 ! !
 XPMReader initialize!