[bugfix] make-promise makes a promise that is done all along

piclib/built-in.scm

@@ -926,7 +926,7 @@
   (define (make-promise obj)
     (if (promise? obj)
 	obj
-	(make-promise% #f obj)))
+	(make-promise% #t obj)))
 
   (export delay-force delay force make-promise promise?))