Index: /trunk/ccl/examples/tiny.lisp
===================================================================
--- /trunk/ccl/examples/tiny.lisp	(revision 455)
+++ /trunk/ccl/examples/tiny.lisp	(revision 456)
@@ -26,8 +26,8 @@
 
 ;;; Define the DemoView class 
-;;; NOTE: This will be replaced by a DEFCLASS once ObjC objects have been
-;;;       integrated into CLOS
 
-(def-objc-class demo-view ns-view)
+(defclass demo-view (ns:ns-view)
+  ()
+  (:metaclass ns:+ns-object))
 
 
@@ -74,6 +74,6 @@
   (with-autorelease-pool
    (slet ((r (ns-make-rect 100.0 350.0 400.0 400.0)))
-	 (let ((w (make-objc-instance 
-		   'ns-window
+	 (let ((w (make-instance 
+		   'ns:ns-window
 		   :with-content-rect r
 		   :style-mask (logior #$NSTitledWindowMask 
@@ -83,5 +83,5 @@
 		   :defer nil)))
 	   (send w :set-title #@"Tiny Window Application")
-	   (let ((my-view (make-objc-instance 'demo-view :with-frame r)))
+	   (let ((my-view (make-instance 'demo-view :with-frame r)))
 	     (send w :set-content-view my-view)
 	     (send w :set-delegate my-view))