Typo fix: "occured" -> "occurred"

scheme/httpd/core.scm

@@ -164,7 +164,7 @@
 	     (values #f
 		     (apply make-error-response (status-code internal-error) 
 			    #f		; don't know
-			    "Internal error occured while processing request"
+			    "Internal error occurred while processing request"
 			    c)))
 	    (else
 	     (decline))))

scheme/httpd/logging.scm

@@ -154,7 +154,7 @@
   (with-errno-handler*
    (lambda (errno packet)
      (http-syslog (syslog-level warning)
-		  "[httpd] Warning: An error occured while opening ~S for writing (~A).~%Send signal USR1 when the problem is fixed.~%"
+		  "[httpd] Warning: An error occurred while opening ~S for writing (~A).~%Send signal USR1 when the problem is fixed.~%"
 	     log-file
 	     (car packet))
      (make-null-output-port))
@@ -187,7 +187,7 @@
       (or (with-fatal-error-handler*
 	   (lambda (condition decline)
 	     (http-syslog (syslog-level debug)
-			  "An error occured while resolving IP ~A: ~A"
+			  "An error occurred while resolving IP ~A: ~A"
 			  remote-ip condition)
 	     remote-ip)
 	   (lambda ()

scheme/httpd/response.scm

@@ -233,7 +233,7 @@
 misconfiguration and was unable to complete your request.
 <P>
 Please inform the server administrator, ~A, of the circumstances leading to
-the error, and time it occured.~%"
+the error, and time it occurred.~%"
 		 (or (httpd-options-server-admin options)
 		     "[no mail address available]"))
 	 (send-message port)
@@ -255,7 +255,7 @@ the requested method (~A).~%"
        '()
        (lambda (port options)
 	 (generic-title port)
-	 (format port "An error occured while waiting for the 
+	 (format port "An error occurred while waiting for the 
 response of a gateway.~%")
 	 (send-message port)
 	 (close-html port)))))))

web-server/root/surflets/admin-profiling.scm

@@ -232,12 +232,12 @@ plot '~a' title 'SUrflet Profiling ~a' with lines"
 		 (if use-convert?
 		     (if (zero? convert-status)
 			 `(image (@ (src ,convert-picture-name)))
-			 `(p "An error occured while generating the profiling results"
+			 `(p "An error occurred while generating the profiling results"
 			     " chart with convert (" ,convert ")."
 			     " Anyway, you can download the "
 			     (url ,gnuplot-picture-name "raw profiling chart") "."))
 		       `(url ,gnuplot-picture-name "Profiling chart."))
-		 `(p "An error occured while generating the profiling results picture."
+		 `(p "An error occurred while generating the profiling results picture."
 		     (br)
 		     "Are you sure, you have " (q "gnuplot") 
 		     " installed at " (q ,gnuplot) "?"))

web-server/root/surflets/spaceship.scm

@@ -534,7 +534,7 @@ spaceships of class " ,class ":")
 			(car last)))))))
 
 ;;; Does a check on the value of a number-input-field. Abstraction
-;;; over two cases occured above. Best explained by the use above.
+;;; over two cases occurred above. Best explained by the use above.
 (define (check-bounded-number-field class input positiv selector boundary)
   (if (or (not input)
 	  (<= input 0))