--- a/ApplicationModel.st	Tue Nov 13 13:02:44 2001 +0100
+++ b/ApplicationModel.st	Tue Nov 13 20:14:26 2001 +0100
@@ -1531,9 +1531,18 @@
     "like Objects warn, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
-    super warn:(resources string:aString) withCRs
+    |s|
+
+    resources isNil ifTrue:[
+        "/ mhmh an early warning ...
+        s := aString
+    ] ifFalse:[
+        s := resources string:aString
+    ].
+    super warn:s withCRs
 
     "Created: / 20.5.1998 / 01:14:52 / cg"
+    "Modified: / 13.11.2001 / 20:10:12 / cg"
 !
 
 warn:aString with:arg
@@ -2539,6 +2548,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.160 2001-11-13 12:02:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.161 2001-11-13 19:14:26 cg Exp $'
 ! !
 ApplicationModel initialize!