diff --git a/collects/srfi/26/cut.ss b/collects/srfi/26/cut.ss
index 42d0a3519a..d208ede0e0 100644
--- a/collects/srfi/26/cut.ss
+++ b/collects/srfi/26/cut.ss
@@ -10,6 +10,7 @@
 #lang scheme/base
   
 (provide cut cute)
+(require (for-syntax scheme/base))
   
 ; generate-names/exprs :
 ;    Given the arguments for the macro call to cut (or cute) as a syntax-list,
@@ -68,7 +69,7 @@
      (generate-names/exprs #'(slot-or-expr ...)
                            (lambda (slot-names names-or-exprs . ignored)
                              #`(lambda (x #,@slot-names)
-                                 (x #,@(datum->syntax-object stx names-or-exprs)))))]
+                                 (x #,@(datum->syntax stx names-or-exprs)))))]
     [(cut proc slot-or-expr ... <...>)
      ;;   Applying a wrong number of arguments to the the lamba generated by cut, will provoke an
      ;; error caused by the application (proc ...). The quasisyntax/loc makes sure DrScheme