diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp
index 357a2b3cf9a46b74061bcf02947f5cf5c9e1d333..596e395f59ac9c35e9b68c810d21f886d38dd688 100644
--- a/tools/hemcom.lisp
+++ b/tools/hemcom.lisp
@@ -30,13 +30,8 @@
 	    :nicknames '("ED")
 	    :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
 ;;;
-(in-package "C")
-(export 'compile-from-stream)
+(export 'c::compile-from-stream (find-package "C"))
 
-;;; Hack...
-
-(dolist (x (apropos-list "key-event" "HI"))
-  (unintern x "HI"))
 
 (in-package "USER")