[Qualify calling-component slot with a package (not sure if it should be exported from ucw).
Maciek Pasternacki <maciekp@japhy.fnord.org>**20060322211718] hunk ./src/form.lisp 115
-               (not (and (slot-boundp e 'calling-component)
-                         (eq element (slot-value e 'calling-component))))
+               (not (and (slot-boundp e 'it.bese.ucw::calling-component)
+                         (eq element (slot-value e 'it.bese.ucw::calling-component))))