diff --git a/R/Build_TMB_Fn.R b/R/Build_TMB_Fn.R
index 1d3661d..3d948cf 100644
--- a/R/Build_TMB_Fn.R
+++ b/R/Build_TMB_Fn.R
@@ -146,8 +146,7 @@ function( TmbData, Version, Q_Config=TRUE, CovConfig=TRUE,
   Obj$env$inner.control$grad.tol <- c(1e-8,1e-12,1e-15)[ConvergeTol] # # Default : 1e-8  # Maximum gradient limit inner optimization
 
   # Print number of parameters
-  message("Number of fixed and random effects:")
-  print( table(names(Obj$env$last.par)) )
+  ThorsonUtilities::list_parameters( Obj )
 
   # Return stuff
   Return = list("Obj"=Obj, "Upper"=Bounds[,'Upper'], "Lower"=Bounds[,'Lower'], "Parameters"=Parameters, "Map"=Map, "Random"=Random)