diff --git a/s48/args-fold/NEWS b/s48/args-fold/NEWS
index eedaa26..5282d12 100644
--- a/s48/args-fold/NEWS
+++ b/s48/args-fold/NEWS
@@ -1,2 +1,6 @@
 version 0.4
 * New package system.
+* New upstream release.
+* UPSTREAM: As suggested by Sven Hartrumpf, a long option with a
+  missing required option-argument (no "=") will not use the next
+  command line argument as the option-argument.
diff --git a/s48/args-fold/args-fold.scm b/s48/args-fold/args-fold.scm
index 7644b3f..7007328 100644
--- a/s48/args-fold/args-fold.scm
+++ b/s48/args-fold/args-fold.scm
@@ -185,22 +185,13 @@
                                         #f
                                         #f
                                         unrecognized-option-proc))))
-                      (if (and (option-required-arg? option)
-                               (pair? args))
-                          (let-values
-                              ((seeds (apply (option-processor option)
-                                             option
-                                             name
-                                             (car args)
-                                             seeds)))
-                            (scan-args (cdr args) seeds))
-                          (let-values
-                              ((seeds (apply (option-processor option)
-                                             option
-                                             name
-                                             #f
-                                             seeds)))
-                            (scan-args args seeds)))))
+                      (let-values
+                          ((seeds (apply (option-processor option)
+                                         option
+                                         name
+                                         #f
+                                         seeds)))
+                        (scan-args args seeds))))
                    (;; (rx bos "-" (submatch (+ any)))
                     (and (> (string-length arg) 1)
                          (char=? #\- (string-ref arg 0)))