(define (current-environment-completions prefix)
  (let ((size (string-length prefix)))
    (filter
     (lambda (candidate)
       (and (>= (string-length candidate) size)
            (substring=? prefix candidate 0 0 size)))
     (map (o symbol->string car) (##sys#current-environment)))))