diff --git a/src/adapter.jl b/src/adapter.jl
index 9ff0f27ba..80bfb0d0e 100644
--- a/src/adapter.jl
+++ b/src/adapter.jl
@@ -22,7 +22,7 @@ end
 
 function Base.show(io::IO, obj::Union{GapObj,FFE})
     stri = show_string(io, obj)
-    print(io, "GAP: $stri")
+    print(AbstractAlgebra.pretty(io), AbstractAlgebra.LowercaseOff(), "GAP: $stri")
 end
 
 function Base.string(obj::Union{GapObj,FFE})
diff --git a/test/basics.jl b/test/basics.jl
index d660e5456..d16424d1a 100644
--- a/test/basics.jl
+++ b/test/basics.jl
@@ -153,3 +153,10 @@ end
     @test gs3 == [random(GRS, G) for _=1:30]
 
 end
+
+@testset "printing" begin
+    io = IOBuffer()
+    io = GAP.AbstractAlgebra.pretty(io)
+    print(io, GAP.AbstractAlgebra.Lowercase(), GapObj([1, 2, 3]))
+    @test String(take!(io)) == "GAP: [ 1, 2, 3 ]"
+end