--- a/Warning.st	Mon Apr 16 15:42:00 2007 +0200
+++ b/Warning.st	Mon Apr 16 15:42:20 2007 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libbasic' }"
 
 UserNotification subclass:#Warning
@@ -128,13 +126,7 @@
 
     text := self description.
 
-    (Smalltalk isInitialized 
-     and:[Dialog notNil
-     and:[Screen notNil
-     and:[Screen current notNil
-     and:[Screen current isOpen
-    ]]]]) ifTrue:[
-        Dialog autoload.        "in case its autoloaded"
+    self hasDialog ifTrue:[
         Dialog warn:text.
     ] ifFalse:[
         "
@@ -155,7 +147,7 @@
 !Warning class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.11 2005-01-20 12:25:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.12 2007-04-16 13:42:20 stefan Exp $'
 ! !
 
 Warning initialize!