Index: /branches/ide-1.0/ccl/hemlock/src/killcoms.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/killcoms.lisp	(revision 6604)
+++ /branches/ide-1.0/ccl/hemlock/src/killcoms.lisp	(revision 6605)
@@ -27,5 +27,5 @@
   "When set, some commands that affect the current region only work when the
    region is active."
-  :value t)
+  :value nil)
 
 (defhvar "Highlight Active Region"
@@ -226,15 +226,15 @@
 	       (eq last-type :char-kill-backward))
 	   (when *delete-char-region*
-	     (ring-push *delete-char-region* *kill-ring*)
+	     (kill-ring-push *delete-char-region*)
 	     (setf *delete-char-region* nil))
 	   (setf region (kill-region-top-of-ring region current-type)))
 	  ((zerop (ring-length *kill-ring*))
 	   (setf region (delete-and-save-region region))
-	   (ring-push region *kill-ring*))
+	   (kill-ring-push region))
 	  ((or (eq last-type :kill-forward) (eq last-type :kill-backward))
 	   (setf region (kill-region-top-of-ring region current-type)))
 	  (t
 	   (setf region (delete-and-save-region region))
-	   (ring-push region *kill-ring*)))
+	   (kill-ring-push region)))
     (make-region-undo :insert "kill" (copy-region region) insert-mark)
     (setf (last-command-type) current-type)))
@@ -310,5 +310,5 @@
 	  (t
 	   (when *delete-char-region*
-	     (ring-push *delete-char-region* *kill-ring*)
+	     (kill-ring-push *delete-char-region*)
 	     (setf *delete-char-region* nil))
 	   (let ((r (ring-ref *kill-ring* 0)))
@@ -322,4 +322,10 @@
 		     :kill-backward))))))
 
+(defun kill-ring-push (region)
+  (hi::region-to-clipboard region)
+  (ring-push region *kill-ring*))
+
+
+  
 
 
@@ -342,5 +348,5 @@
   "Insert the region into the kill ring."
   (declare (ignore p))
-  (ring-push (copy-region (current-region)) *kill-ring*))
+  (kill-ring-push (copy-region (current-region))))
 
 (defcommand "Kill Next Word" (p)