Index: Drei/drei-clim.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp,v
retrieving revision 1.24
diff -u -r1.24 drei-clim.lisp
--- Drei/drei-clim.lisp	10 Dec 2007 21:25:12 -0000	1.24
+++ Drei/drei-clim.lisp	22 Dec 2007 23:39:18 -0000
@@ -223,8 +223,8 @@
   ;; literal objects. We return a string if we can, an array
   ;; otherwise. This is a bit slow, as we cons up the array and then
   ;; probably a new one for the string, most of the time.
-  (let ((contents (buffer-sequence (buffer gadget)
-                                   0 (size (buffer gadget)))))
+  (let ((contents (buffer-sequence (buffer (view gadget))
+                                   0 (size (buffer (view gadget))))))
     (if (every #'characterp contents)
         (coerce contents 'string)
         contents)))