parameterize with no parameters is broken for internal defines

Ikarus Scheme version 0.0.3+ (revision 1587, build 2008-08-17)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (list (parameterize () (define x 1) x))
Unhandled exception
 Condition components:
   1. &who: define
   2. &message: "a definition was found where an expression was expected"
   3. &syntax:
       form: (define x 1)
       subform: #f
   4. &trace: #<syntax (define x 1)>
> (list (parameterize ([print-graph #t]) (define x 1) x))
(1)
>