diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 317a69f..9c5023a 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -80,6 +80,7 @@
            :test-documentation
            :remove-tests
            :run-tests
+           :run-1-test
            :use-debugger)
   ;; Functions for managing tags
   (:export :list-tags
@@ -945,6 +946,15 @@ If MERGE is NIL, then an error is signalled when a conflict occurs."
        (summarize-results results))
      (return results))))
 
+;; fix for issue #47
+(defun run-1-test (test-name)
+  "Run the test designated by the given TEST-NAME"
+  (let ((*print-summary* t)
+	(*print-failures* t)
+	(*summarize-results* t)
+	(*print-errors* t))
+   (run-tests (list test-name) (symbol-package test-name))))
+
 (defun run-tests (&optional (test-names :all) (package *package*))
   "Run the specified tests in package."
   (reset-counters)