Index: ltk.lisp
===================================================================
--- ltk.lisp    (revision 265)
+++ ltk.lisp    (working copy)
@@ -1273,7 +1273,7 @@
   
 (defun create-name ()
   "create unique widget name, append unique number to 'w'"
-  (format nil "w~A" (encode-base-52 (get-counter))))
+  (format nil "ltk~A" (encode-base-52 (get-counter))))