diff --git a/clim/gadget-output.lisp b/clim/gadget-output.lisp
index 0955018ce56022167f46b30dd986f9e1142aa579..6179a16e5641a694c9f23c4c88914531679ac310 100644
--- a/clim/gadget-output.lisp
+++ b/clim/gadget-output.lisp
@@ -1,6 +1,6 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*-
 
-;; $fiHeader: gadget-output.lisp,v 1.45 93/03/04 18:59:54 colin Exp $
+;; $fiHeader: gadget-output.lisp,v 1.46 93/03/25 15:39:40 colin Exp $
 
 (in-package :clim-internals)
 
@@ -690,7 +690,7 @@
 	  (declare (ignore type))
 	  ;; we can put this back in when we handle ol text-fields
 	  ;; correctly (see tk-silica/ol-gadgets)
-	  #+ignore (assert (= index (length new-value)))
+	  (assert (= index (length new-value)))
 	  object)
 	(error () 
 	 (setf (accept-values-query-error-p query) t))