Index: /branches/ide-1.0/ccl/examples/cocoa-window.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-window.lisp	(revision 6586)
+++ /branches/ide-1.0/ccl/examples/cocoa-window.lisp	(revision 6587)
@@ -256,13 +256,7 @@
     ;; Clear existing tab stops.
     (#/setTabStops: p (#/array ns:ns-array))
-    (do* ((i 1 (1+ i)))
-	 ((= i 100) p)
-      (let* ((tabstop (make-instance
-		       'ns:ns-text-tab
-		       :with-type #$NSLeftTabStopType
-		       :location  (* (* i *tab-width*)
-					charwidth))))
-        (#/addTabStop: p tabstop)
-        (#/release tabstop)))))
+    ;; And set the "default tab interval".
+    (#/setDefaultTabInterval: p (float (* *tab-width* charwidth) +cgfloat-zero+))
+    p))
     
 (defun create-text-attributes (&key (font (default-font))