diff --git a/alterator/interfaces/guile/card-index.scm b/alterator/interfaces/guile/card-index.scm

index 7aedef6..df857a0 100644

--- a/alterator/interfaces/guile/card-index.scm

+++ b/alterator/interfaces/guile/card-index.scm

@@ -6,7 +6,6 @@

 (define-module (alterator card-index)

     :use-module (alterator woo)

     :use-module (alterator algo)

-    :use-module (alterator ajax)

     :export (

       f-reset          ;; fill form using values from backend

@@ -16,6 +15,9 @@

       f-update-ci-list ;; update card-index

     ))

+;; Compilation workaround hack

+(and #t (use-modules (alterator ajax)))

+

 ;;;

 (define (f-reset url . args)

diff --git a/alterator/interfaces/guile/effect.scm b/alterator/interfaces/guile/effect.scm

index 6329063..4e41a1c 100644

--- a/alterator/interfaces/guile/effect.scm

+++ b/alterator/interfaces/guile/effect.scm

@@ -3,7 +3,6 @@

   :use-module (srfi srfi-1)

   :use-module (alterator algo)

-  :use-module (alterator ajax)

   :export (init-effect

            update-effect

@@ -13,6 +12,9 @@

            effect-show

            effect-hide))

+;; Compilation workaround hack

+(and #t (use-modules (alterator ajax)))

+

 ;;; effects: common

 (define (effect-tlist tlist)

diff --git a/alterator/interfaces/guile/transport/pipe-channel.scm b/alterator/interfaces/guile/transport/pipe-channel.scm

index 1dccc73..09afc7a 100644

--- a/alterator/interfaces/guile/transport/pipe-channel.scm

+++ b/alterator/interfaces/guile/transport/pipe-channel.scm

@@ -1,9 +1,11 @@

 (define-module (alterator transport pipe-channel)

   :use-module (alterator pipe)

   :use-module (alterator algo)

-  :use-module (alterator session xml)

   :export (pipe-in))

+;; Compilation workaround hack

+(and #t (use-modules (alterator session xml)))

+

 (define (process-incoming next p)

   (let* ((read-port (process-read-port p))

          (cmd (read read-port)))