--- a/DebugView.st	Wed Aug 18 16:59:03 1999 +0200
+++ b/DebugView.st	Wed Aug 18 17:09:24 1999 +0200
@@ -329,7 +329,7 @@
             ]
         ].
         i notNil ifTrue:[
-            DefaultIcon := i := i on:Display
+            DefaultIcon := i := i onDevice:Display
         ]
     ].
     ^ i
@@ -1257,7 +1257,7 @@
 
     super initialize.
 
-    font := font on:device.
+    font := font onDevice:device.
 
     verboseBacktrace := VerboseBacktraceDefault ? false.
 
@@ -3977,6 +3977,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.239 1999-08-17 15:11:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.240 1999-08-18 15:09:24 cg Exp $'
 ! !
 DebugView initialize!