I prefer ddd myself, but I've got users who insist on workshop. Your function, with minor changes for my environment [1] , works perfectly. I added it to default.el in the site-packages directory. Thanks for the assist. I continue to believe that code in the sumo package tarball such as the Sun directory should work on 21.1.x and 21.4.x unmodified. I.e. M-x workshop-start should Just Work if you build xemacs with workshop support. Right now, lisp hacking such as below is still required... Thanks to Gunnar Everson and Charles Hines for their responses as well... Isaac [1] Here's the code. I commented out (interactive) to avoid error messages in the modline if ttsession is already running. (defun ms-start-workshop() "Initializes Sun Workshop. Use M-x workshop-start to invoke the debugger" ; (interactive) (when (featurep 'tooltalk) (load "tooltalk-macros") (load "tooltalk-util") (load "tooltalk-init")) (when (featurep 'sparcworks) (load "sunpro-init") (load "ring") (load "comint") (load "annotations") (sunpro-startup)) (setq bar-cursor nil)) (when (and (>= emacs-major-version 21) (boundp 'ms-i-really-want-workshop) ms-i-really-want-workshop) (ms-start-workshop)) Jake> I usually simply lurk this group but I'll jump in on this. Jake> I use XEmacs 21.1.x regularly and with only some minor setup on Jake> my part can integrate workshop quite nicely. Although I Jake> personally do not use Workshop, preferring gud and dbx, I've Jake> made it work for several of my colleagues Jake> Provided that XEmacs 21.1.x is in the PATH ahead of any of the Jake> Sun Workshop directories, the following function should work Jake> like a charm: Jake> ;; Jake> ;; Initialization required for interfacing with Sun's Workshop. Jake> ;; Do M-x workshop-start to initiate a debugging session. Jake> ;; Jake> (defun jnc-workshop() Jake> "Initializes Sun Workshop. Use M-x workshop-start to invoke the debugger" Jake> (interactive) Jake> (when (featurep 'tooltalk) Jake> (load "tooltalk-macros") Jake> (load "tooltalk-util") Jake> (load "tooltalk-init")) Jake> (when (featurep 'sparcworks) Jake> (load "sunpro-init") Jake> (load "ring") Jake> (load "comint") Jake> (load "annotations") Jake> (sunpro-startup)) Jake> (setq bar-cursor nil))