diff --git a/.dir-locals.el b/.dir-locals.el
new file mode 100644
index 000000000..907f7086c
--- /dev/null
+++ b/.dir-locals.el
@@ -0,0 +1,5 @@
+;;; Directory Local Variables
+;;; For more information see (info "(emacs) Directory Variables")
+
+((lisp-mode . ((tab-width . 8)))
+ (t . ((tab-width . 10))))
diff --git a/cocoa-ide/.dir-locals.el b/cocoa-ide/.dir-locals.el
new file mode 100644
index 000000000..4f49477b2
--- /dev/null
+++ b/cocoa-ide/.dir-locals.el
@@ -0,0 +1,4 @@
+;;; Directory Local Variables
+;;; For more information see (info "(emacs) Directory Variables")
+
+((lisp-mode . ((tab-width . 8))))
diff --git a/level-1/l1-error-signal.lisp b/level-1/l1-error-signal.lisp
index 18b2cd78d..f61d0fca5 100644
--- a/level-1/l1-error-signal.lisp
+++ b/level-1/l1-error-signal.lisp
@@ -87,6 +87,7 @@
                  (simple-file-error (make-condition condition-name
                                              :pathname (car errargs)
                                              :error-type format-string
+                                             :format-control format-string
                                              :format-arguments (cdr errargs)))
                  (undefined-function (make-condition condition-name
                                                      :name (car errargs)))