(valid-password?
  (lambda (user password)
    (let
      ((dbmatch
          (caar
            ($db
              (string-append
                "select password from users where userhandle="
                 user)))))
      (if (string=? (crypt password dbmatch) dbmatch)
        #t
        #f))))



	Call history:

	sql-de-lite.scm:457: prepare-handle	  
	sql-de-lite.scm:407: ##sys#make-locative	  
	sqlite3-api.scm:44: ##sys#make-c-string	  
	sql-de-lite.scm:429: database-error	  
	sql-de-lite.scm:856: raise-database-errors	  
	sql-de-lite.scm:865: error-message	  
	sqlite3-api.scm:35: ##sys#peek-c-string	  
	sql-de-lite.scm:864: raise-database-error/status	  
	sql-de-lite.scm:871: make-property-condition	  
	sql-de-lite.scm:875: make-property-condition	  
	sql-de-lite.scm:870: make-composite-condition	  
	sql-de-lite.scm:869: abort	  
	sql-de-lite.scm:815: lru-cache#lru-cache-flush!	  
	sql-de-lite.scm:154: ##sys#block-set!	  
	sql-de-lite.scm:828: object-release	  
	sql-de-lite.scm:154: ##sys#block-set!	  	<--

Error: (prepare) near "'select password from users where userhandle=admin'": syntax error: "'select password from users where userhandle=admin'"