diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index c0fdd86..9dab1b3 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -263,7 +263,7 @@ ((string? data) (display data out)) ((list? data) (for-each (lambda (data) (display data out)) data)) (else ;; We lose. - (display "Error in SUrflet output.\n" out)) + (display "Error in SUrflet output: no valid data.\n" out)) )))) (make-error-response (status-code internal-error) #f "The SUrflet returned an invalid response object (no surflet-response).")))) diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm index bc4f126..dbef1de 100644 --- a/scheme/httpd/surflets/surflet-input-fields.scm +++ b/scheme/httpd/surflets/surflet-input-fields.scm @@ -262,8 +262,8 @@ (attributes '() sxml-attribute?)) (let ((name (generate-input-field-name "select"))) (if multiple? - (make-multiple-select name select-options attributes) - (make-single-select name select-options + (make-multiple-select name real-select-options attributes) + (make-single-select name real-select-options attributes)))))) ;; deprecated: Does not introduce further functionality.