Index: /trunk/source/objc-bridge/objc-runtime.lisp
===================================================================
--- /trunk/source/objc-bridge/objc-runtime.lisp	(revision 13023)
+++ /trunk/source/objc-bridge/objc-runtime.lisp	(revision 13024)
@@ -2555,5 +2555,5 @@
          (str (symbol-name name))
          (value-placeholder-index (position #\: str)))
-    (when (and (> (length str) 3) value-placeholder-index)
+    (when (and (> (length str) 4) value-placeholder-index)
       (let* ((truncated-name (nstring-downcase (subseq (remove #\: str
                                                                :test #'char= :count 1)