--- a/ResourcePack.st	Fri Apr 11 19:14:27 2003 +0200
+++ b/ResourcePack.st	Fri Apr 11 19:37:24 2003 +0200
@@ -753,7 +753,7 @@
     errorHandler := [:ex | 
                         |con|
 
-                        ('ResourcePack [warning]: ''' , ex errorString , '''') errorPrintCR.
+                        ('ResourcePack [warning]: ''' , ex description , '''') errorPrintCR.
                         ('ResourcePack [info]: file: ' , inStream pathName printString , ' line: ' , lNo printString , ': ''' , lineString , '''') errorPrintCR.
                         con := ex suspendedContext.
                         ('ResourcePack [info]: in: ' , con fullPrintString) errorPrintCR.
@@ -876,7 +876,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.78 2003-03-21 10:59:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.79 2003-04-11 17:37:24 stefan Exp $'
 ! !
 
 ResourcePack initialize!