 (defun clim-get-url-base ()
   (first (clim-get-dataset)))
 
+(defun clim-remove-package-name (string)
+  (car
+   (last
+    (split-string string ":+" t nil))))
+
 (defun clim-find-symbol (string)
-  (assoc (downcase symbol-name)
+  (assoc (clim-remove-package-name (downcase string))
          (clim-get-symbol-table)))
 
 (defun clim-find-symbol-url (string)

                  (clim-get-url-base))
              (cdr syminfo)))))

;;; CLIM-LOOKUP command
;;    Look up a symbol in MikeMac's CLIM documentation.
;;    By default it looks up the symbol under the point, but if it isn't over
;;    something resembling a symbol, it will prompt you. 


;;; CLIM spec datasets

;; Gilbert Baumann one
(setq clim-gilberth-spec 
 '("http://bauhh.dyndns.org:8000/clim-spec/"
   ("+yellow+" . "13-3.html#_700") ("+white+" . "13-3.html#_702")
