diff --git a/gnu/packages/glicid.scm b/gnu/packages/glicid.scm
index e945558..1d5a10e 100644
--- a/gnu/packages/glicid.scm
+++ b/gnu/packages/glicid.scm
@@ -57,6 +57,8 @@
   #:use-module (gnu packages maths)     
   #:use-module (guix utils)
   #:use-module (gnu packages cmake)
+  #:use-module (gnu packages virtualization)
+
 
 )
 
@@ -1249,6 +1251,42 @@ for most inputs, but the resulting compressed files are anywhere from 20% to
 
 (define-public glicid-ceph glicid-ceph-14)
 
+(define-public qemu-with-rbd
+
+
+  (package
+    (inherit qemu)
+    (name "qemu-with-rbd")
+;     (arguments
+;     `(#:configure-flags
+;       (let ((gcc (string-append (assoc-ref %build-inputs "gcc") "/bin/gcc"))
+;             (out (assoc-ref %outputs "out")))
+;         (list (string-append "--cc=" gcc)
+;               ;; Some architectures insist on using HOST_CC.
+;               (string-append "--host-cc=" gcc)
+;               (string-append "--prefix=" out) 
+;               "--sysconfdir=/etc"
+;               (string-append "--smbd=" out "/libexec/samba-wrapper")
+;               "--disable-debug-info --enable-rbd"   ;for space considerations
+;               ;; The binaries need to be linked against -lrt.   
+;               (string-append "--extra-ldflags=-lrt")))
+;       ;; Make build and test output verbose to facilitate investigation upon failure.
+;       ))
+
+;    (arguments
+;
+;     `(#:tests? #f)
+;   )
+
+
+
+     (inputs `(("glicid-ceph:lib", glicid-ceph "lib" )
+      ,@(package-inputs qemu)))
+
+
+
+ )
+)