Index: /branches/arm/compiler/ARM/arm-disassemble.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-disassemble.lisp	(revision 13734)
+++ /branches/arm/compiler/ARM/arm-disassemble.lisp	(revision 13735)
@@ -299,5 +299,5 @@
                            (:constant (format stream "~s" (list 'quote (uvref xfunction (cadr operand)))))
                            ((:lsl :lsr :asr :ror :rrx)
-                            (format stream "(~s" (car operand))
+                            (format stream "(:~a" (string-downcase (car operand)))
                             (dolist (sub (cdr operand))
                               (format-operand sub))