diff --git a/src/cmp/cmpstructures.lsp b/src/cmp/cmpstructures.lsp
index fe2a25838..5421f38a7 100644
--- a/src/cmp/cmpstructures.lsp
+++ b/src/cmp/cmpstructures.lsp
@@ -37,7 +37,7 @@
 	       (inline-possible fname)
 	       (policy-inline-slot-access-p))
       ;(format t "~%;;; Optimizing structure accessor ~A" fname)
-      (let (struture-type slot-index)
+      (let (structure-type slot-index)
 	(unless (and (consp slot-description)
 		     (setf structure-type (car slot-description)
 			   slot-index (cdr slot-description))