Index: /trunk/source/lib/describe.lisp
===================================================================
--- /trunk/source/lib/describe.lisp	(revision 13677)
+++ /trunk/source/lib/describe.lisp	(revision 13678)
@@ -1279,5 +1279,5 @@
              (let* ((value (ccl::nth-immediate o (1+ (- nclosed n))))
                     (map (car (ccl::function-symbol-map (ccl::closure-function o))))
-                    (label (or (and map (svref map (+ n (- (length map) nclosed))))
+                    (label (or (and map (aref map (+ n (- (length map) nclosed))))
                                n))
                     (cellp (ccl::closed-over-value-p value)))
@@ -1328,5 +1328,5 @@
   (if (< (decf n) 0)
     (values nil "Disassembly:" :comment)
-    (let ((line (svref (disasm-info f) n)))
+    (let ((line (aref (disasm-info f) n)))
       (if (consp line)
         (destructuring-bind (object label instr) line
@@ -1336,5 +1336,5 @@
 (defun disassembly-line-n-inspector (f n)
   (unless (< (decf n) 0)
-    (let ((line (svref (disasm-info f) n)))
+    (let ((line (aref (disasm-info f) n)))
       (and (consp line)
 	   (car line)
@@ -1344,5 +1344,5 @@
   (if (< (decf n) 0)
     (values "Disassembly:" nil)
-    (let ((line (svref (disasm-info f) n)))
+    (let ((line (aref (disasm-info f) n)))
       (if (consp line)
         (destructuring-bind (object label instr) line
@@ -1601,5 +1601,5 @@
 
 (defmethod compute-frame-info ((f error-frame) n)
-  (let* ((frame (svref (addresses f) n))
+  (let* ((frame (aref (addresses f) n))
          (context (context f))
          (marker (unavailable-value-marker f)))
@@ -1665,5 +1665,5 @@
 
 (defmethod line-n ((f stack-inspector) n)
-  (let* ((frame (svref (addresses (inspector-object f)) n)))
+  (let* ((frame (aref (addresses (inspector-object f)) n)))
     (ccl::cfp-lfun frame)))