 		    (format "method.%s.%s" word
 			    (if (or (string= (car type) "plc")
 				    (string= (car type) "plw"))
-				(cdr type)
+				(or (and (list-pjs-plc-types-to-kernel)
+					 (gethash (cdr type) (list-pjs-plc-types-to-kernel)))
+				    (cdr type))
 			      (format "%s.%s" (car type) (cdr type)))))
 		   ((looking-back "\\.")
-		    (format "plw.%s" word))
+		    word)
+;;		    (format "plw.%s" word))
 		   (t
 		    (format "%s.%s" (pjs-current-namespace) word))))))))
 

		  function-at-point
		read-symbol))))))

(defun find-function-at-point ()
  (save-excursion
    (let ((word (thing-at-point 'word t)) type)

	    (t
	     (unless (looking-back "\\.") (backward-word))
	     (cond ((looking-back "plw\\.")
		    word)
;;		    (format "plw.%s" word))
		   ((looking-back (format "%s\\." (list-pjs-namespaces-regexp)))
		    (backward-word)
		    (format "%s.%s" (thing-at-point 'word t) word))
