--- a/XWorkstation.st Tue Feb 04 11:22:47 2014 +0100
+++ b/XWorkstation.st Tue Feb 04 12:01:39 2014 +0100
@@ -636,7 +636,9 @@
s := '/usr/share/X11/XErrorDB' asFilename readStreamOrNil.
s notNil ifTrue:[
errorLine := s peekForLineStartingWith:match.
- errorLine := errorLine copyFrom:(errorLine indexOf:$:)+1.
+ errorLine notNil ifTrue:[
+ errorLine := errorLine copyFrom:(errorLine indexOf:$:)+1.
+ ].
s close.
].
errorLine
@@ -13044,11 +13046,11 @@
!XWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.580 2014-02-03 10:33:05 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.581 2014-02-04 11:01:39 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.580 2014-02-03 10:33:05 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.581 2014-02-04 11:01:39 stefan Exp $'
!
version_SVN