diff --git a/motif/lisp/callbacks.lisp b/motif/lisp/callbacks.lisp
index 9484c0f2baa279224f196d59b4ff0949a140da3f..3a0a27f2a1994d7db34117515a9fc8c50d4d388d 100644
--- a/motif/lisp/callbacks.lisp
+++ b/motif/lisp/callbacks.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.4 1999/02/05 21:10:24 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.5 2003/04/11 12:09:10 pmai Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -123,7 +123,9 @@
   (declare (type widget widget)
 	   (type keyword property protocol)
 	   (type (or symbol function) fn))
-  (let* ((table (motif-connection-protocol-table *motif-connection*))
+  (let* ((property (xti:symbol-atom property))
+         (protocol (xti:symbol-atom protocol))
+         (table (motif-connection-protocol-table *motif-connection*))
 	 (key (list (widget-id widget) property protocol))
 	 (data (cons fn args)))
 
@@ -138,7 +140,9 @@
   (declare (type widget widget)
 	   (type keyword property protocol)
 	   (type (or symbol function) fn))
-  (let* ((table (motif-connection-protocol-table *motif-connection*))
+  (let* ((property (xti:symbol-atom property))
+         (protocol (xti:symbol-atom protocol))
+         (table (motif-connection-protocol-table *motif-connection*))
 	 (key (list (widget-id widget) property protocol))
 	 (data (cons fn args))
 	 (new-list (delete data (gethash key table) :test #'equal)))
diff --git a/motif/lisp/internals.lisp b/motif/lisp/internals.lisp
index 2015ef1d2ca9fa5eed128eeecbdb8b4a4c971fce..5ba7a4911c64a01591c1783a6e904791efe67a7f 100644
--- a/motif/lisp/internals.lisp
+++ b/motif/lisp/internals.lisp
@@ -7,7 +7,7 @@
 ;;; contact Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/internals.lisp,v 1.7 1998/12/20 04:22:54 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/internals.lisp,v 1.8 2003/04/11 12:09:10 pmai Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -213,7 +213,7 @@
 
 ;;; Converts a symbol into an atom.
 (defun symbol-atom (symbol)
-  (substitute #\_ #\- (symbol-name symbol)))
+  (intern (substitute #\_ #\- (symbol-name symbol)) :KEYWORD))
 
 (defun widget-add-child (parent child)
   (declare (type widget parent child))