diff --git a/collects/htdch/draw/Canvas-native-methods.ss b/collects/htdch/draw/Canvas-native-methods.ss
index d21c85e6bf..417906772e 100644
--- a/collects/htdch/draw/Canvas-native-methods.ss
+++ b/collects/htdch/draw/Canvas-native-methods.ss
@@ -21,8 +21,10 @@
     (syntax-case stx ()
       [(_ body)
        #'(with-handlers 
-             ((exn:fail? 
-               (lambda (e) (raise-error "The method start(int,int) must be called on the canvas before using any drawing methods"))))
+	   ((exn:fail? 
+               (lambda (e)
+		 (raise-error
+		   "The method start(int,int) must be called on the canvas before using any drawing methods"))))
            body)]))
   
   (define-syntax (define/provide stx)
diff --git a/collects/htdch/draw/World.java b/collects/htdch/draw/World.java
index 2cc0f596f9..5db4f09a92 100644
--- a/collects/htdch/draw/World.java
+++ b/collects/htdch/draw/World.java
@@ -1,22 +1,13 @@
 package draw;
         
 public abstract class World {
-
-    protected Canvas theCanvas = new Canvas(); 
-
+    public Canvas theCanvas = new Canvas(); 
     public native boolean bigBang(int width, int height, double s); 
-
     public native boolean endOfTime();
-    
     public native World endOfWorld();
-
     public native World lastWorld();
-
     public abstract World onTick();
-
     public abstract World onKeyEvent(String ke); 
-
     public abstract boolean draw();
-
     public abstract boolean erase();
 }    
diff --git a/collects/profjWizard/class.scm b/collects/profjWizard/class.scm
index ecc53b0e43..27bf80c146 100644
--- a/collects/profjWizard/class.scm
+++ b/collects/profjWizard/class.scm
@@ -172,12 +172,12 @@
      ;; identifiers ending in f are format strings, and require ~n for newline
      
      ;; Abstract Class 
-     (define abstractF "abstract class ~a {\n")
+     (define abstractF "interface ~a {\n")
      ;; Abstract Template 
      (define purpos "  // purpose statement \n")
      (define absteg "  abstract ??? mmm();\n")       
      ;; Class 
-     (define classf "class ~a ~a{~n") (define extendsf "extends ~a ")
+     (define classf "class ~a ~a{~n") (define extendsf "implements ~a ")
      ;; Fields
      (define declaf "  ~a ~a;~n")
      ;; Constructor
@@ -590,4 +590,4 @@
       "make union with common fields")
      |#
      )
-   
\ No newline at end of file
+