diff --git a/shiftf.lsp b/shiftf.lsp
index fec210f8c956795cb4a7a739ca3d551aadf50abe..eb82f448dfbec735e2aa55bc99ae408628108f92 100644
--- a/shiftf.lsp
+++ b/shiftf.lsp
@@ -79,4 +79,13 @@
       x y)))
   1 2 foo)
 
+;;; Test that SHIFTF returns a single value, even though the first
+;;; place has multiple values.
+(deftest shiftf.7
+  (let ((x 'a) (y 'b))
+    (values
+     (multiple-value-list (shiftf (values x y) (floor 10 3)))
+     x y))
+  (a) 3 1)
+
 ;;; Need to add more shiftf tests here