debug with fixed path

metal-sdk.scm

@@ -45,8 +45,8 @@
 
 (define (http-req method path headers body)
   (let ((fixed-path (combine-path path)))
-    (when http-debug? (http-debug method path headers body))
-    (let-values (((resp port) (http-get (combine-path path) #:headers headers
+    (when http-debug? (http-debug method fixed-path headers body))
+    (let-values (((resp port) (http-get fixed-path #:headers headers
 					#:streaming? #t
 					#:decode-body? #f
 					#:body body)))