--- a/ResourcePack.st	Fri Nov 02 11:54:40 2007 +0100
+++ b/ResourcePack.st	Fri Nov 02 19:01:48 2007 +0100
@@ -1176,10 +1176,11 @@
                     (lineString startsWith:'if') ifTrue:[
                         skipping ifFalse:[
                             rest := lineString copyFrom:3.
-                            Error
+                            Error, UserInformation
                                 handle:errorHandler 
                                 do:[
-                                    value := Compiler evaluate:rest compile:false].
+                                    value := Compiler evaluate:rest compile:false
+                                ].
                             (value == #Error) ifTrue:[
                                 printError value:('error in resource:' , lineString).
                             ].
@@ -1240,7 +1241,7 @@
                     ].
                 ] ifFalse:[
                     skipping ifFalse:[
-                        Error
+                        Error, UserInformation
                             handle:errorHandler 
                             do:[
                                 (lineString at:1) == $!! ifTrue:[
@@ -1284,7 +1285,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.123 2007-08-21 19:18:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.124 2007-11-02 18:01:48 stefan Exp $'
 ! !
 
 ResourcePack initialize!